﻿Namespace Reports


    Public Class R_03_00501

        Public Sub CreateDataBindings()

            Me.XrTableCell_AssetName.DataBindings.Add("Text", Me.DataSource, "ASSET_NAME")
            Me.XrTableCell_AlterDate.DataBindings.Add("Text", Me.DataSource, "ALTER_DATE")
            Me.XrTableCell_Fromkeeper.DataBindings.Add("Text", Me.DataSource, "FROM_KEEPER__STAFF_NAME")
            Me.XrTableCell_Tokeeper.DataBindings.Add("Text", Me.DataSource, "TO_KEEPER__STAFF_NAME")
            Me.XrTableCell_CurrentPrincipal.DataBindings.Add("Text", Me.DataSource, "CURRENT_PRINCIPAL__STAFF_NAME")
            Me.XrTableCell_AlterInLocation.DataBindings.Add("Text", Me.DataSource, "ALTER_IN_LOCATION")
            Me.XrTableCell_AlterOperator.DataBindings.Add("Text", Me.DataSource, "ALTER_OPERATOR__STAFF_NAME")
          


        End Sub

        Private Sub XrTableCell_AlterInLocation_BeforePrint(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintEventArgs) Handles XrTableCell_AlterInLocation.BeforePrint
            Dim locationRowSE As New AssetVisionXAuto.FTs.FT_M_AV_LOCATIONRowSEntity
            AssetVisionXAuto.Facade.AfBizMaster.FillM_AV_LOCATIONRowSEntity(locationRowSE, Me.XrTableCell_AlterInLocation.Text)
            Me.XrTableCell_AlterInLocation.Text = locationRowSE.LOCATION_NAME

        End Sub
    End Class

End Namespace